gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_Logout.asp

    <!--#include file="Head.asp"-->
<!--#include file="Inc/MD5.asp"-->
<!--#include file="Api/Api_Class.asp"-->
<%
Dim ComeUrl,MemberName
MemberName = Netout.UserName

With Netout
	.SetCookie "UserId",		"0"
	.SetCookie "UserName",		""
	.SetPurview ""
	.SetCookie "GroupID",		5
	.SetCookie "Group",			""
End With

ComeUrl = Trim(Request("ComeUrl"))
If ComeUrl = "" Then
    ComeUrl = Request.ServerVariables("HTTP_REFERER")
End If
If InStr(lcase(ComeUrl), "reg") Then
	ComeUrl = "./"
ElseIf Instr(Lcase(ComeUrl),"apppurview.asp") Then
	ComeUrl = "./"
End If
If ComeUrl = "" Then ComeUrl = "./"

'-----------------------------------------------------------------
'系统整合
'-----------------------------------------------------------------
Dim objApi,SysKey
If Api_Enable Then
	Md5OLD = 1
	SysKey = Md5(MemberName&Api_SysKey,Api_Md5_Len)
	Md5OLD = 0
	Set objApi = New Lyout_Api
	Response.Write(objApi.SetCookie(SysKey,MemberName,"",""))
	Set objApi = Nothing
	Netout.TransUrl ComeUrl,1000
Else
	Netout.TransUrl ComeUrl,0
End If
%>